home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
batchut
/
bcsrce2.zip
/
SAVEIT.BC
< prev
next >
Wrap
Text File
|
1991-02-22
|
2KB
|
74 lines
rem Hotkey to activity this TSR is Ctrl-C.
rem This product use the TesSeRact(tm) Ram-Resident Library and supports
rem the TesSeRact Standard for Ram-Resident Program Communication. For
rem information about TesSeRact, contact the TesSeRact Development Team
rem at: TesSeRact Development Team
rem 1657 The Fairways
rem Suite 101
rem Jenkintown, PA 19046
rem 1-215-884-3373
rem Compuserve: 70731.20
rem MCIMAIL: 315-5415
rem
rem This MCI Account has been provided to the TesSeRact Development Team
rem by Borland International, Inc. TesSeRact is a trade mark of the
rem TesSeRact Development Team.
if %1 = disable goto disable_TSR
if %1 = enable goto enable_TSR
if %1 = unload goto unload_TSR
if %1 = popup goto popup_TSR
if %1 = d goto disable_TSR
if %1 = e goto enable_TSR
if %1 = u goto unload_TSR
if %1 = p goto popup_TSR
TSR_installed?
if errorlevel 1 goto installed
echo Installing screen capture program.
echo All screens toggled with Ctrl-C are redirected to SAVEIT.SCN.
echo.
echo SYNTAX--: SAVEIT [UNLOAD]/[ENABLE]/[DISABLE]/[POPUP]
echo SYNTAX--: SAVEIT [U]/[E]/[D]/[P]
TSR 46 4
save_screen
let %!w = 1
do_while not %!w == 26
locate %!w 1
let %!l = 0
read_screen %!l
echo %!l>>saveit.scn
add %!w 1
end_while
restore_screen
beep
return
:installed
echo The screen capture TSR program has already been installed.
exit
:disable_TSR
GOSUB CHECK_TSR
TSR_disable
echo The screen capture TSR has been DISABLED.
exit
:enable_TSR
GOSUB CHECK_TSR
TSR_enable
echo The screen capture TSR has been ENABLED.
exit
:unload_TSR
GOSUB CHECK_TSR
TSR_unload
echo The screen capture TSR has been UNLOADED.
exit
:popup_TSR
GOSUB CHECK_TSR
TSR_popup
exit
:CHECK_TSR
TSR_installed?
if not errorlevel 1 goto N_A
RETURN
:N_A
echo The screen capture TSR hasn't been installed yet.
echo SAVEIT, by itself, installs the TSR.
exit